home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD020b.dsk / CHECK BOOK MENU.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  62 lines
  1. 100  ONERR  GOTO 360
  2. 110  REM ** HELLO **
  3. 120  REM HELLO FOR CHECK BOOK
  4. 130  REM CHECKER
  5. 140  REM ********************
  6. 150  TEXT : HOME :D$ =  CHR$(4): REM CTRL-D
  7. 160  REM 
  8. 170  REM 
  9. 180  REM 
  10. 190  REM 
  11. 200  FOR I = 1 TO 40: PRINT "=";: NEXT 
  12. 210 T$ = "CHECK BOOK MENU"
  13. 220 L =  LEN(T$)
  14. 230  HTAB 21 -L/2: PRINT T$
  15. 240  FOR I = 1 TO 40: PRINT "=";: NEXT 
  16. 250  DATA S)SEE LAST ENTRY,R)RUN CHECK BOOK,Q)QUIT
  17. 260 R = 10
  18. 270  FOR I = 1 TO 3
  19. 280  READ A$: VTAB R: HTAB 10: PRINT A$
  20. 290 R = R +3: NEXT I
  21. 300  VTAB 20: HTAB 1: PRINT "WHICH CHOICE " CHR$(98)"S" CHR$(98)" " CHR$(98)"R" CHR$(98)" OR " CHR$(98)"Q" CHR$(98)
  22. 310  GET A$
  23. 320  IF A$ = "S"  THEN  PRINT : PRINT D$;"RUN READ"
  24. 330  IF A$ = "R"  THEN  PRINT : PRINT D$;"RUN CHECK BOOK CHECKER"
  25. 340  IF A$ = "Q"  THEN  PRINT : TEXT : HOME : VTAB 12: PRINT "THE COMPUTER IS YOURS": PRINT  CHR$(4)"FP"
  26. 350  CLEAR : RESTORE : GOTO 110
  27. 360  REM ERROR ROUTINES
  28. 370 PK =  PEEK(222)
  29. 380  DATA 6,8,9,16
  30. 390  FOR I = 1 TO 4: READ A: IF A = PK  THEN S = I: ON S GOTO 410,460,530,610
  31. 400  NEXT 
  32. 410  TEXT : HOME 
  33. 420  VTAB 12: PRINT "THERE HAS BEEN AN ERROR"
  34. 430  PRINT : PRINT "MAKE SURE YOU HAVE THE CORRECT DISK IN  THE CORRECT DRIVE"
  35. 440  VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: GET A$
  36. 450  PRINT : PRINT D$;"RUN HELLO"
  37. 460  REM I/O ERROR
  38. 470  TEXT : HOME 
  39. 480  VTAB 12: PRINT "DISK ERROR!!"
  40. 490  PRINT : PRINT "MAKE SURE THE DOOR ON THE DISK DRIVE"
  41. 500  PRINT : PRINT "IS FULLY CLOSED"
  42. 510  VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: GET A$
  43. 520  PRINT : PRINT D$;"RUN CHECK BOOK MENU"
  44. 530  REM DISK FULL
  45. 540  TEXT : HOME 
  46. 550  VTAB 12: PRINT "DISK IS FULL (BURP!!)"
  47. 560  PRINT : PRINT "YOUR CHECK FILE IS PROBLY THE REASON"
  48. 570  PRINT : PRINT "DO YOU WISH ME TO FIX IT ?"
  49. 580  PRINT : PRINT "PRESS 'Y' FOR YES OR 'N' FOR NO ";: GET A$
  50. 590  IF A$ = "N"  THEN  PRINT : PRINT D$;"RUN CHECK BOOK MENU"
  51. 600  PRINT D$;"RUN FIXER"
  52. 610  REM SYNTAX ERROR
  53. 620  TEXT : HOME 
  54. 630  VTAB 12: PRINT "ERROR!! PROGRAM TERMINATED"
  55. 640  PRINT : PRINT "FIND PROBLEM AND REBOOT DISK"
  56. 650  PRINT : PRINT "END"
  57. 660  PRINT D$;"FP"
  58. 670 :
  59. 680  REM ** ERNIE MERLO **
  60. 690  REM  2415 LINCOLN AVE.
  61. 700  REM  BELMONT CA. 94002
  62. 710  REM  (415) 595-5945